home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.20010306-20010921 / 000311_fdc@watsun.cc.columbia.edu_Tue Aug 14 10:51:39 EDT 2001.msg < prev    next >
Text File  |  2020-01-01  |  4KB  |  98 lines
  1. Article: 12670 of comp.protocols.kermit.misc
  2. Path: newsmaster.cc.columbia.edu!watsun.cc.columbia.edu!fdc
  3. From: fdc@watsun.cc.columbia.edu (Frank da Cruz)
  4. Newsgroups: comp.protocols.kermit.misc
  5. Subject: Re: Kermit Scripts and Shell Scripts
  6. Date: 14 Aug 2001 14:51:02 GMT
  7. Organization: Columbia University
  8. Lines: 81
  9. Message-ID: <9lbdsm$35j$1@newsmaster.cc.columbia.edu>
  10. References: <336f652d.0108130841.43ce0ed5@posting.google.com> <9l909g$bse$1@newsmaster.cc.columbia.edu> <336f652d.0108140545.1a1c8658@posting.google.com>
  11. NNTP-Posting-Host: watsun.cc.columbia.edu
  12. X-Trace: newsmaster.cc.columbia.edu 997800662 3251 128.59.39.2 (14 Aug 2001 14:51:02 GMT)
  13. X-Complaints-To: postmaster@columbia.edu
  14. NNTP-Posting-Date: 14 Aug 2001 14:51:02 GMT
  15. Xref: newsmaster.cc.columbia.edu comp.protocols.kermit.misc:12670
  16.  
  17. In article <336f652d.0108140545.1a1c8658@posting.google.com>,
  18. Shifeux <shifeux@hotmail.com> wrote:
  19. : I am using:  C-Kermit 7.0.197, 8 Feb 2000, for Data General DG/UX
  20. : R4.20  I am trying to call the perl script from within an IF statement
  21. : using the "run" command (I also toyed around with "exec")  The perl
  22. : does work fine by itself. It seems like the IF construct is causing
  23. : the Kermit script to crash at the point of the run command. When I
  24. : comment out the IF statement the script runs fine.   I have tried
  25. : various different things but nothing will let this run command run.
  26. : Here is a listing of the latest try at the if statement.
  27. : 
  28. : if failure timeout
  29. : 
  30. : minput 10 {No files found} {Total of}
  31. : switch \v(minput) {
  32. :         :1, if failure write TRANSACTION-LOG Files Found\13\10, define
  33. : \%o 1, br
  34. : eak
  35. :         :2, cp /kermit_scripts/\%r.termlog
  36. : /cleoa+/kermit_scripts/\%r.files, break
  37. : }
  38. :             run /kermit_scripts/xxxxxxx.pl, pause 5, -
  39. :             define \%o 1, break
  40. : 
  41. : 
  42. : input 10 {choice : }
  43. : if failure timeout
  44. : 
  45. OK, this is all fractured and hard to read; I assume you're not trying to
  46. run a fractured original.
  47.  
  48. "run /kermit_scripts/xxxxxxx.pl" should work if the xxxxxxx.pl file contains
  49. a first line that looks like:
  50.  
  51. #!/usr/bin/perl
  52.  
  53. and it has execute permission:
  54.  
  55.  1. Can you run it from the shell prompt by typing its name?
  56.  
  57.  2. If so, can you run it from Kermit by typing
  58.     "run /kermit_scripts/xxxxxxx.pl" at the C-Kermit> prompt?
  59.  
  60. Assuming the answer to both is yes, let's try to reconstruct your
  61. fractured script:
  62.  
  63.   minput 10 {No files found} {Total of}
  64.   switch \v(minput) {
  65.     :1, if failure write TRANSACTION-LOG Files Found\13\10
  66.         define \%o 1
  67.         break
  68.     :2, cp /kermit_scripts/\%r.termlog /cleoa+/kermit_scripts/\%r.files
  69.         break
  70.   }
  71.   run /kermit_scripts/xxxxxxx.pl
  72.   pause 5
  73.   define \%o 1
  74.   break
  75.  
  76. Well, it's a bit confusing.  The RUN command looks like it should be
  77. a SWITCH clause (because of the BREAK) but it's outside the SWITCH
  78. statement.  What's the BREAK for?  And which IF statement are you talking
  79. about, that causes the script to crash?  The only one I see is the IF FAILURE
  80. in case 1 of the SWITCH (which doesn't make much sense).  Does the following
  81. make more sense?
  82.  
  83.   minput 10 {No files found} {Total of}
  84.   if failure stop 1 MINPUT timed out.
  85.  
  86.   switch \v(minput) {
  87.     :1, writeln TRANSACTION-LOG Files Not Found
  88.         define \%o 1
  89.         break
  90.     :2, cp /kermit_scripts/\%r.termlog /cleoa+/kermit_scripts/\%r.files
  91.         run /kermit_scripts/xxxxxxx.pl
  92.         pause 5
  93.         define \%o 1
  94.         break
  95.   }
  96.  
  97. - Frank
  98.